5/29/2018
## Warning: package 'dplyr' was built under R version 3.4.2
## ## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats': ## ## filter, lag
## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union
## Warning: package 'tidyr' was built under R version 3.4.3
The data that I chose was from FigShare and can be reached at reef_fish
The data is on reef fish in Australia and New Zealand that was taken over a 3 year period. Each entry has a specific latitude and longitude that corresponds with the site and site code which I use to break up the data since it is so large (over 130,000 entries). Each entry is made by a diver who observed the fish families and counted the totals.
reef_fish <- read.csv('../data/RLSreeffishdataset.csv')
CG10_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% filter(SiteCode == "CG10")
## Warning: package 'bindrcpp' was built under R version 3.4.4
CG11_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% filter(SiteCode == "CG11")
Want to see if there is a difference between what divers see at the sight
## Adding missing grouping variables: `Family`
| Family | CG10 | CG11 |
|---|---|---|
| Enoplosidae | 33.00000 | 31.00000 |
| Plesiopidae | 32.12500 | 33.00000 |
| Pomacentridae | 32.81818 | 31.18182 |
| Scorpididae | 31.70000 | 31.00000 |